This forum is closed to new posts and
responses. Individual names altered for privacy purposes. The information contained in this website is provided for informational purposes only and should not be construed as a forum for customer support requests. Any customer support requests should be directed to the official HCL customer support channels below:
RE: Archive database needs a new profile doc ~Hal Fezresaterynds 17.Jul.03 06:53 PM a Web browser Notes Client 6.0Windows 98
Please excuse the lateness of my reply.
Sub Initialize
Dim session As New NotesSession
If Not Left$( session.NotesVersion, 9 ) = "Release 6" Then
Msgbox |This fixup is only for clients running version 6 of Lotus Notes|, 48, |Not Notes Release 6|
Exit Sub
End If
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim prof As NotesDocument
Set prof = db.GetProfileDocument( "archive profile" )
If prof.ArchivePath(0) = "" Then
Msgbox |Your archive database is not defined.
Processing cannot continue.|, 16, |Mail Archive Database Not Defined|
Exit Sub
End If
Dim dbarch As New NotesDatabase( prof.ArchiveServer(0), prof.ArchivePath(0))
If Not dbarch.IsOpen Then
Msgbox |Can't find your archive database "| & prof.ArchivePath(0) & |"|, 16, |Mail Archive Database Not Found|
Exit Sub
End If
Set prof = dbarch.GetProfileDocument( "archive database profile" )
If Not prof Is Nothing Then
Call prof.Remove( True )
End If
Msgbox |Fixup process completed without errors.|, 64, |Process Complete|
End Sub
Return to top
. . . . . . . . . . RE: Archive database needs a new pr... (~Hal Fezresater... 17.Jul.03) 
Print this page
